home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASDEMO2 / TESTKBD2.PAS < prev   
Pascal/Delphi Source File  |  1988-01-15  |  175b  |  10 lines
  1. program TestReadyKey;
  2. uses Crt;
  3. var c: char;
  4. begin
  5.    c := ReadKey;
  6.    if ( c = #0 ) then
  7.       writeln( 'Extended key: ', ReadKey )
  8.    else
  9.       writeln( c );
  10. end.